home *** CD-ROM | disk | FTP | other *** search
- object RecorderForm: TRecorderForm
- Tag = 1
- Left = 294
- Top = 173
- Width = 288
- Height = 338
- Caption = 'Macro Recorder'
- Font.Color = clWindowText
- Font.Height = -13
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- Menu = MainMenu1
- OnCloseQuery = FormCloseQuery
- OnCreate = FormCreate
- PixelsPerInch = 120
- TextHeight = 16
- object Gauge: TGauge
- Left = 0
- Top = 263
- Width = 280
- Height = 25
- Align = alBottom
- Progress = 0
- end
- object RecordButton: TButton
- Left = 8
- Top = 16
- Width = 75
- Height = 25
- Caption = 'Record'
- TabOrder = 0
- OnClick = RecordButtonClick
- end
- object StopButton: TButton
- Left = 92
- Top = 16
- Width = 89
- Height = 25
- Caption = 'Stop Record'
- TabOrder = 1
- OnClick = StopButtonClick
- end
- object PlayButton: TButton
- Left = 192
- Top = 16
- Width = 75
- Height = 25
- Caption = 'Play'
- TabOrder = 2
- OnClick = PlayButtonClick
- end
- object Button1: TButton
- Left = 45
- Top = 56
- Width = 185
- Height = 25
- Caption = 'Test Auto-speed addaption'
- TabOrder = 3
- OnClick = Button1Click
- end
- object RadioGroup1: TRadioGroup
- Left = 58
- Top = 96
- Width = 161
- Height = 105
- Caption = 'Speed simulation'
- ItemIndex = 1
- Items.Strings = (
- 'Simulate 5x slower'
- 'Normal Speed'
- 'Simulate 5x faster')
- TabOrder = 4
- end
- object Edit1: TEdit
- Tag = 11
- Left = 35
- Top = 224
- Width = 209
- Height = 24
- TabOrder = 5
- OnClick = Edit1Click
- end
- object MainMenu1: TMainMenu
- Left = 128
- object File1: TMenuItem
- Caption = '&File'
- ShortCut = 0
- object New1: TMenuItem
- Caption = '&New'
- ShortCut = 0
- OnClick = New1Click
- end
- object Open1: TMenuItem
- Caption = '&Open'
- ShortCut = 0
- OnClick = Open1Click
- end
- object N1: TMenuItem
- Caption = '-'
- ShortCut = 0
- end
- object Exit1: TMenuItem
- Caption = '&Exit'
- ShortCut = 0
- OnClick = Exit1Click
- end
- end
- end
- object OpenDialog1: TOpenDialog
- DefaultExt = '*.mcr'
- FileEditStyle = fsEdit
- Filter = 'Macro|*.mcr'
- Options = [ofPathMustExist, ofFileMustExist]
- Left = 176
- end
- object MagicMacros: TMagicMacros
- OnPlay = MagicMacrosPlay
- OnPlayEnded = MagicMacrosPlayEnded
- OnRecordEnded = MagicMacrosRecordEnded
- OnProgress = MagicMacrosProgress
- Left = 40
- Top = 8
- end
- end
-